Add test for Bug#41761

* test/lisp/simple-tests.el (simple-test-count-words-bug-41761):
New test.

diff --git a/test/lisp/simple-tests.el b/test/lisp/simple-tests.el
index 4adcacb279b69f92bbecfbe3e918e518ada7e89f..63e504bbe17f6d0e7e613b864c20d23520787904 100644 (file)
--- a/test/lisp/simple-tests.el
+++ b/test/lisp/simple-tests.el
@@ -38,6 +38,13 @@
      ,@body
      (with-no-warnings (simple-test--buffer-substrings))))
 
+\f
+;;; `count-words'
+(ert-deftest simple-test-count-words-bug-41761 ()
+  (with-temp-buffer
+    (dotimes (i 10) (insert (propertize "test " 'field (cons nil nil))))
+    (should (= (count-words (point-min) (point-max)) 10))))
+
 \f
 ;;; `transpose-sexps'
 (defmacro simple-test--transpositions (&rest body)